Skunkware 5/Skunkware 5.iso/src/X11/tclMotif-1.4/tests/create.test

Text File | 1995-06-29 | 5.6 KB | 316 lines

# test creation of each widget type

if {[string compare test [info procs test]] == 1} then \
  {source defs}

# set VERBOSE 1
# set INTERACTIVE 1


#############
# starts here
#############

xtAppInitialize -class List
. setValues -allowShellResize true

xmForm .f managed

#
# Primitive widgets
#

test create-1.1 {create arrow button} {
    xmArrowButton .f.arrow
    .f.arrow class
} {XmArrowButton}

test create-1.2 {create drawing area} {
    xmDrawingArea .f.da
    .f.da class
} {XmDrawingArea}

test create-1.3 {create drawn button} {
    xmDrawnButton .f.db
    .f.db class
} {XmDrawnButton}

test create-1.4 {create label} {
    xmLabel .f.lab
    .f.lab class
} {XmLabel}

test create-1.5 {create list} {
    xmList .f.list
    .f.list class
} {XmList}

test create-1.6 {create push button} {
    xmPushButton .f.pb
    .f.pb class
} {XmPushButton}

test create-1.7 {create scale} {
    xmScale .f.sc
    .f.sc class
} {XmScale}

test create-1.8 {create scroll bar} {
    xmScrollBar .f.sbar
    .f.sbar class
} {XmScrollBar}

test create-1.9 {create text} {
    xmText .f.text
    .f.text class
} {XmText}

test create-1.10 {create text field} {
    xmTextField .f.textf
    .f.textf class
} {XmTextField}

test create-1.11 {create toggle button} {
    xmToggleButton .f.tb
    .f.tb class
} {XmToggleButton}

test create-1.11 {create separator} {
     xmSeparator .f.sep
    .f.sep class
} {XmSeparator}

test create-1.12 {create cascade button} {
    xmCascadeButton .f.cb
    .f.cb class
} {XmCascadeButton}

#
# Primitive convenience
#

test create-2.1 {create scrolled text} {
    xmScrolledText .f.st
    set a [.f.st class]
    set b [[.f.st parent] class]
    set result "$a $b"
} {XmText XmScrolledWindow}

test create-2.1 {create scrolled list} {
    xmScrolledList .f.sl
    set a [.f.sl class]
    set b [[.f.sl parent] class]
    set result "$a $b"
} {XmList XmScrolledWindow}

#
# Manager widgets
#

test create-3.1 {create bulletin board} {
    xmBulletinBoard .f.bb
    .f.bb class
} {XmBulletinBoard}

test create-3.2 {create command} {
    xmCommand .f.comm
    .f.comm class
} {XmCommand}


test create-3.3 {create file selection box} {
    xmFileSelectionBox .f.fsb
    .f.fsb class
} {XmFileSelectionBox}

test create-3.4 {create form} {
    xmForm .f.f
    .f.f class
} {XmForm}

test create-3.5 {create frame} {
    xmFrame .f.frame
    .f.frame class
} {XmFrame}

test create-3.6 {create message box} {
    xmMessageBox .f.mb
    .f.mb class
} {XmMessageBox}

test create-3.7 {create paned window} {
    xmPanedWindow .f.pw
    .f.pw class
} {XmPanedWindow}

test create-3.8 {create scrolled window} {
    xmScrolledWindow .f.sw
    .f.sw class
} {XmScrolledWindow}

test create-3.9 {create selection box} {
    xmSelectionBox .f.sbox
    .f.sbox class
} {XmSelectionBox}

test create-3.10 {create main window} {
    xmMainWindow .f.mw
    .f.mw class
} {XmMainWindow}

test create-3.11 {create row column} {
    xmRowColumn .f.rc
    .f.rc class
} {XmRowColumn}

#
# RowCol convenience
#

test create-4.1 {create menu bar} {
    xmMenuBar .f.mb
    .f.mb class
} {XmRowColumn}

test create-4.2 {create option menu} {
    xmOptionMenu .f.om
    .f.om class
} {XmRowColumn}

test create-4.3 {create popup menu} {
    xmPopupMenu .f.pop
    .f.pop class
} {XmRowColumn}

test create-4.4 {create pulldown menu} {
    xmPulldownMenu .f.pull
    .f.pull class
} {XmRowColumn}


test create-5.1 {create bulletin board dialog} {
    xmBulletinBoardDialog .f.bbd
    .f.bbd class
} {XmBulletinBoard}

test create-5.2 {create dialog shell} {
    xmDialogShell .f.ds
    .f.ds class
} {XmDialogShell}

test create-5.3 {create error dialog} {
    xmErrorDialog .f.ed
    .f.ed class
} {XmMessageBox}

test create-5.4 {create file selection dialog} {
    xmFileSelectionDialog .f.fsd
    .f.fsd class
} {XmFileSelectionBox}

test create-5.4 {create form dialog} {
    xmFormDialog .f.fd
    .f.fd class
} {XmForm}

test create-5.5 {create information dialog} {
    xmInformationDialog .f.id
    .f.id class
} {XmMessageBox}

test create-5.6 {create message dialog} {
    xmMessageDialog .f.md
    .f.md class
} {XmMessageBox}

test create-5.7 {create prompt dialog} {
    xmPromptDialog .f.pd
    .f.pd class
} {XmSelectionBox}

test create-5.8 {create question dialog} {
    xmQuestionDialog .f.qd
    .f.qd class
} {XmMessageBox}

test create-5.9 {create selection dialog} {
    xmSelectionDialog .f.sd
    .f.sd class
} {XmSelectionBox}

test create-5.10 {create toplevel shell} {
    topLevelShell .f.top
    .f.top class
} {TopLevelShell}

test create-5.11 {create warning dialog} {
    xmWarningDialog .f.wd
    .f.wd class
} {XmMessageBox}

test create-5.12 {create working dialog} {
    xmWorkingDialog .f.wod
    .f.wod class
} {XmMessageBox}

#
# Motif 2.0 widgets
#

if {$XmVersion >= 2000} {

test create-6.1 {create combo box} {
    xmComboBox .f.cb
    .f.cb class
} {XmComboBox}

test create-6.2 {create container} {
    xmContainer .f.cont
    .f.cont class
} {XmContainer}

test create-6.3 {create cs text} {
    xmCSText .f.cst
    .f.cst class
} {XmCSText}

test create-6.4 {create drop down combo box} {
    xmDropDownComboBox .f.ddcb
    .f.ddcb class
} {XmComboBox}

test create-6.5 {create drop down list} {
    xmDropDownList .f.ddl
    .f.ddl class
} {XmComboBox}

test create-6.6 {create icon gadget} {
    xmIconGadget .f.icg
    .f.icg class
} {XmIconGadget}

test create-6.7 {create } {
    xmNotebook .f.note
    .f.note class
} {XmNotebook}

test create-6.8 {create } {
    xmSpinBox .f.spb
    .f.spb class
} {XmSpinBox}

} # XmVersion >= 2



#############
# Finish up #
#############
if { ! $INTERACTIVE} {
   .f destroyWidget
} else {
  . mainLoop
}